#' 将先前的部分页面设置为横版
#'
#' @param doc R1_start_docx功能生成的doc
#' @param pagewidth A4纸pagewidth=29.7/2.54，pageheight = 21/2.54,
#' A3纸pagewidth=42/2.54，pageheight = 29.7/2.54,
#' A2纸pagewidth=59.4/2.54，pageheight = 42/2.54
#' @param pageheight 见pagewidth
#' @param orient 默认"landscape"（横版），可选"portrait"（竖版）
#' @param type 默认"continuous"（连续页），可选“evenPage”（偶数页），“oddPage”（奇数页）
#'
#' @return 设置了页面的doc
#' @export
#'
#' @examples
#'
#' \dontrun{
#'
#' # 使用R4_add_figure功能示例代码的img.file，gg，p，my_barchart，scatter
#'
#' ?R4_add_figure
#'
#'
#' doc <- R1_start_docx() %>%
#' R4_add_figure(img.file) %>%
#'   R4_add_figure(gg) %>%
#'   R4_add_figure(p)%>%
#'   R5_set_previous_section_landscape(orient ="portrait")%>%  #第一次设置，将之前的设置为正常的A4纸大小竖版
#'   R4_add_figure(my_barchart)%>%
#'   R4_add_figure(scatter)%>%
#'   R5_set_previous_section_landscape()%>%  #第二次设置，将第二次和第一次之间的部分设置为A4纸大小横板
#'   R4_add_figure(p)%>%
#'   R4_add_figure(my_barchart)%>%
#'   R4_add_figure(scatter)%>%
#'   R5_set_previous_section_landscape( pagewidth=59.4/2.54,pageheight = 42/2.54,orient ="portrait") #第三次设置，将第三次和第二次之间的部分设置为A2纸大小竖板
#'
#'
#' # 输出到example.docx查看效果
#' print(doc, target = "example.docx" )
#'
#'
#'
#' # 删除example.docx
#' unlink("example.docx")
#'
#'
#' }
#'
#'
#'
#'
#'
#'
#'
#'
R5_set_previous_section_landscape<-function(doc = doc,
                                            pagewidth = 29.7/2.54,
                                            pageheight = 21/2.54,
                                            orient = "landscape",
                                            type = "continuous" ){

  require(officer)

  ps <- prop_section(
    page_size = page_size(width = pagewidth,
                          height = pageheight,
                          orient = orient),
    type = type)

  doc <- body_end_block_section(
    x = doc,
    value = block_section(property = ps))

  return(doc)

}
